home *** CD-ROM | disk | FTP | other *** search
- ;
- ; TML MacLanguage series Pascal FKEY header code.
- ;
- ; File: PAS$FKEYHeader.asm
- ;
- ; Written by Greg King, University of Alberta.
- ;
- ; Oct. 18, 1986
- ;
- ; Assembled using Consulair assembler.
- ;
- ; Use "{$H 'PAS$FKEYHeader'}" in the head of your Pascal source and
- ; compile as a desk accessory into a code resource.
- ;
- ; Your FKEY procedure must be named FKEY and there must not be any
- ; main program.
- ;
-
- xref FKEY ;name of Pascal subroutine
-
- bra.s start
- dc.w 0 ;flags word
- dc.b 'FKEY' ;resource type
- dc.w 5 ;resource id
- dc.w 0 ;version
-
- start jsr FKEY
- rts